home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00720_AC-bt poub.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  661 b   |  31 lines
  1. on mouseDown
  2.   global g1erSprLoc, gNumSpr, gBoutons
  3.   set gNumSpr to g1erSprLoc + 14
  4.   gBoutons(appuie, gNumSpr)
  5. end
  6.  
  7. on mouseUp
  8.   global g1erSprLoc, gBoutons, gNumSpr
  9.   curseur(1)
  10.   if gNumSpr = (g1erSprLoc + 14) then
  11.     MouseClick()
  12.     gBoutons(relache, gNumSpr)
  13.   else
  14.     pass()
  15.   end if
  16. end
  17.  
  18. on MouseClick
  19.   global g1erSprLoc, gMaxBoutons, gEtudAct, g1erSprChr
  20.   set gEtudAct to " "
  21.   puppetSound(0)
  22.   set the visible of sprite 2 to 0
  23.   repeat with i = g1erSprLoc + 14 to gMaxBoutons
  24.     set the visible of sprite i to 0
  25.   end repeat
  26.   repeat with i = g1erSprChr to g1erSprLoc + 10
  27.     set the visible of sprite i to 1
  28.   end repeat
  29.   JukeBox(0, " ")
  30. end
  31.